home *** CD-ROM | disk | FTP | other *** search
/ Zoom 1 / Zoom (1995)(Active Software, Ground Zero).iso / utils / u414.dms / u414.adf / installdm < prev    next >
Text File  |  1994-04-09  |  2KB  |  92 lines
  1. ; DiskManager 4.0 Installer Script
  2. ; by Andrew Woods
  3.  
  4. (procedure InstallDMnew
  5.     (
  6.         (set ecdir
  7.             (askdir
  8.                 (prompt "Please select a drawer to install into")
  9.                 (help   "Choose somewhere that you want to run DiskManager 4.0 from. The Installer will NOT create a new drawer.")
  10.                 (default "Work:")
  11.             )
  12.         )
  13.         (copyfiles
  14.             (prompt "Copying DiskManager 4.0...")
  15.             (source "DM4.0:")
  16.             (dest   ecdir)
  17.             (infos)
  18.             (all)
  19.         )
  20.     )
  21. )
  22.  
  23. (procedure InstallDMold
  24.     (
  25.         (set ecdir
  26.             (askdir
  27.                 (prompt "Please select your DM3 drawer")
  28.                 (help   "Choose the drawer (not the DiskManagerIII file)")
  29.                 (default "Work:")
  30.             )
  31.         )
  32.         (copyfiles
  33.             (prompt "Copying DiskManager 4.0...")
  34.             (source "DM4.0:DM4.0")
  35.             (dest   ecdir)
  36.             (infos)
  37.         )
  38.         (copyfiles
  39.             (prompt "Copying DiskManager 4.0 help...")
  40.             (source "DM4.0:DM4.guide")
  41.             (dest   ecdir)
  42.             (infos)
  43.         )
  44.         (copyfiles
  45.             (prompt "Copying History file...")
  46.             (source "DM4.0:history.doc")
  47.             (dest   ecdir)
  48.             (infos)
  49.         )
  50.         (copyfiles
  51.             (prompt "Copying History file viewer...")
  52.             (source "DM4.0:ppmore")
  53.             (dest   ecdir)
  54.         )
  55.         (copyfiles
  56.             (prompt "Copying Help file viewer...")
  57.             (source "DM4.0:viewguide")
  58.             (dest   ecdir)
  59.         )
  60.         (copyfiles
  61.             (prompt "Copying Author's Notes...")
  62.             (source "DM4.0:authornotes.doc")
  63.             (dest   ecdir)
  64.             (infos)
  65.         )
  66.     )
  67. )
  68.  
  69. (if (< (/ (getversion) 65536) 37)
  70. (
  71.     (abort "You need WB2 or above to run DiskManager 4.0")
  72. ))
  73.  
  74. (set mainopt
  75.     (askchoice
  76.         (prompt "Select the type of installation")
  77.         (help   "Depending on whether you own an older copy of DiskManager will affect how the installation should proceed. If you have some existing V3.0 datafiles then you will choose the second option, but if you want to start from scratch and create a new database then choose the second option. If you want to run off this disk but need the libraries in place then this option will place the libraries for you")
  78.         (choices "DM4.0 for new user"
  79.                          "DM4.0 for existing (V3.0) user"
  80.         )
  81.     )
  82. )
  83.  
  84. (if (= mainopt 0)
  85.     (InstallDMnew)
  86. )
  87. (if (= mainopt 1)
  88.     (InstallDMold)
  89. )
  90.  
  91. (message "Now DiskManager 4.0 is ready to rock!")
  92.